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ABSTRACT 



This routine converts a double precision binary number to its 
eight digit BCD equivalent. 
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1 . i y^rS.'JL 

IK or larger alterable memory. 

1 . 2 Eg u ij2JJlElill 

NOVA central processor. 

1.3 External Sub routines. 

Unsigned divide ( .DIVU) is required. 

1.4 Other 

None. 

2 . 1 Qg_lli na Sequence 

JSR .D3BC 
return 



2 . 2 Input Format 

A positive, double precision binary number in KC0 
(high order), AC1 (low order). 

2.3 Output Format 

The eight digit (32-bit) BCD equivalent in AC0 
(high order), AC1 (low order). 

2.4 Error Returns 

If a number greater than 99,999,999 is input for 
conversion, Carry is set to indicate an error 
(only eight digits of BCD information can be 
accomodated in 32 bits). If the conversion is 
performed, Carry will be zero on return. 
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2.5 State of Active Reqister3_u£o n_Ejcit 

AC2 is unchanged. AC0, AC1, AC3, and Carry are 

destroyed. 

2 . 6 ^ujUqnsJ^ JI?jL£ 
None. 
3. DISCUSS IO N 

3.1 Algorithms 

The binary input is compared to 100,000,000* If 
greater than or equal to, Carry is set to indicate 
an error and return is made. Otherwise, consider 
the input as 

B = H * 10 , 000 + L 
where H and L are integers in the range 
0i\i] ^9-999. 

Since only four BCD digits can be accomodated in 
a 16-bit register, H and L, represented in BCD, 
would be precisely the results desired. Further, 
H and L satisfy the algebraic definition of division 
of B by 10,000, with H = quotient and L = remainder. 
The algorithm thus consists of a division of the 
input by 10,000 and single precision binary to 
BCD conversions on the quotient (to produce the 
high order result) and the remainder (to produce 
the low order result). The single precision 
conversion is performed by successively subtracting 
appropriate powers of ten from the binary input 
(see References). 

3.2 Limitations and Accuracy 

The routine is exact for all binary values less 
than 100,000,000 decimal. 
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3. 3 Size and Timing 

The routine is 57 (octal) words in length. 

Average execution time (including the divide) is 

1018 + N * 14.1 >4 seconds 

where N is the sum of the digits of the result. 
For example, the worst case is 99,999,999 which 

gives an execution time of 

1018 +9*8* 14.1 = 2.033 milliseconds. 
3 • 4 ^efc recces 

A description of the single precision binary to 
BCD conversion algorithm is described by write-up 
093-000024. 

3.5 Flow Diagrams 

ft one. 

4. EXAMPLES AMD APPLICATIONS 

The ASCII source of .DBCB is provided with the NOVA 
software. This tape should be edited into the user 
source that requires this type conversion. 

5. PROGRAM LISTING 

A listing of .DBCB follows. No origin is given in the 
source, enabling the tape to be edited anywhere within 
a user routine. 



ft i ; *.'■ :• •■. :. - n •_ '„ \ ^ =. - 

•q e ' :• .--le : - =; :; > 



t\JilMf 



\J ACE 



I OUTPUT! 
I 



THE BCD EQUIVALENT IN EE3* /-.C *. Chic; 

LOW) 



1 CALLINb SEQUENCE: 

J JBE .DBBC 
i KETUKN 



I EHKOK CONDI! I 



AC0 



GKEATEK THAN ?V' ? v"??Vj NO CONVERSION 
WILL TAKE PLACE AND BANKY WILL BE SE f 



I UNCHANGED s AC 2 

1 DESTROYED s AC0* AC 1 * AC3^ BAKBY 



1 REQUIRES 5 



• DIVU < UNSIGNED DIVIDE) 



00000 054042 

08001 32S£'J2 

00002 E3E853 

00003 112032 

VVVK/'H MJWfJVJ i, %> 

08085 i I 2445 
00006 136042 
0808? 002042 



• DBBC: ETA .3*.FB03 

L«-»A ^EEi? + 
ABQBr- 0*2*i>Z( 
JMP »F399 
SUBO B^E*BXK 



I SAVE HE TURN 

1 GET 100 #00*/) #000 



I INPUT OK 



I EEKOK CAkKY IS SET 



00010 33E054 *^B9 C ;; LEA 2*.FB21 



006056 
04004 7 



000 1 1 
§00 12 

000.13 BW1W« 

(##014 040050 

§0015 02404 7 

00016 084822 

0001? 105020 

00020 020050 

00021 #02842 



JSK .F850 

ST A 0# .FBI 1 

LEA 1 # »FB5 

JBK •F858 
MOVE 0jrl 

e,*.u *.- , ; ai i 

JMP ©*B»E3 



i DIVIDE BY 10*000 

I SAVE KEMA I NBEEH 

I CONVENT HI EH OK DEE 

I SAVE HE SOU'S HIGH 

1 CONVERT LOW DHL) EH 

1 ciE SUETS ID AG0* AG! 



30022 


030 055 


OJ jQ| £51 O **«| 


050051 


00024 


I 02400 


§0025 


032051 


00026 


1 005 1 


00027 


;01 1.-J0 


00030 


| |J | 1 pfii 


00031 


1 1 ; ,•: J 


00032 


1 1 i d -/j 


00033 


I &h*'d?. 


00834 


1 1 40 1 


§§035 


14 7001 


00036 


000033 


00037 


151224 


00040 


000025 


00841 


001400 



•FB52I 



-F33 1 : 



X,«s- f »'■ 1 -i 



LDA 

I . t . > -. J 
S.vtL v#0 
M0V2L 0*0 



n u : 
MO' 
30i 
INI 



00 C-0 

ri ,-if l * or'. 



A0D 2#i#S0P 
JMP .FB51 
M0V20 2j2#SZH 
JMP -FB52 
-V » 



j -,.*;.., ."• *;-.-:. J 5 * TEN TABLE 

1 _«v0 =: 

J CLEAR A00 

1 GET POWER 0."" iris 

I BUMP 1*0 NEXT ENTRY' 



DOES POWER 
ip 



* 00 GO IN? 
YES,* BUMP BOO "OUTPUT 
NO, RESTORE AC 1 
SUBTRACT AGAIN 
UONE IF 10**0 
NO* CONTINUE 
YES* RETURN 



00042 000000 -F803 S 



I SAVE RETURN 





000012 




.K0X 1« 


00043 


v >; >.>0 


.FB05X 


1000 


00044 


000144 




100 


00045 


000012 




10 


00046 


000001 




1 




000010 




• RDX 8 


00047 


000000 


• ■•■"0i ;: 





00050 


000000 


.ku:i : 





00051 


000000 


. 00 1 £. % 





00052 


002705 


•FB20? 


2765 


00053 


160400 




160400 


00054 


023420 


.FB2I l 


23420 


00055 


000043 


.F830: 


.FB05 


00056 


00005 7 


.PB3IS 


• JiV = J 



I 10**3 

I 10**2 

1 10**1 

I 10**0 



J SAVE REMAINDER 

I SAVE HIGH ORDER RESULTS 

I POINTER TO CURRENT POWER OF 

J TEN 

J 10**9 CERR0R TEST) 

% 10**4 

J ADDRESS OF POWER OF TEN TABLE 

I UNSIGNED DIVIDE REQUIRED 



